home *** CD-ROM | disk | FTP | other *** search
- on InitCopy
- global gFileObj, gFileList, gFileToCopy, gSrcPathList, gDestPathList, gSpaceNeeded, gBytes, gPrevBytes
- set gFileToCopy to 1
- set sourcepath to getAt(gSrcPathList, gFileToCopy)
- set destPath to getAt(gDestPathList, gFileToCopy)
- set gSpaceNeeded to 0
- set K to count(gFileList)
- repeat with n = 1 to K
- set m to gMiscObj(mInsureFolder, getAt(gDestPathList, n))
- set sp to getAt(gSrcPathList, n) & getAt(gFileList, n)
- set gSpaceNeeded to gSpaceNeeded + gFileObj(mFsMacFileSize, sp)
- end repeat
- set gBytes to 0
- set gPrevBytes to 0
- set srcFile to sourcepath & getAt(gFileList, gFileToCopy)
- set DestFile to destPath & GetDestFileName(getAt(gFileList, gFileToCopy))
- StartCopy(srcFile, DestFile)
- end
-